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1.0 PREFACE 


The CYBIL source code formatter described in this document is 
based on past experiences developing and using comparable 
formatters for the CYBILI and CYBILC languages. 


1.1 SCOPE_OF DOCUMENT 
This document is intended to contain information necessary to 


use the CYBIL formatter in an interactive or batch job. 


It is assumed that the reader is familiar with the CYBIL 
language and concepts of the NGS operating system, 


1.2 APPLICABLE DOCUMENTS 


CYBIL Language Specification (ARH2298) 
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2.20 INTRODUCTION 


200 INTRODUCTION 


The CYBIL formatter is a utility used to format CYBIL source 
code to maximize readability. It executes as a standatone 
product. 


201 PURPOSE 


The formatter provides a common tooi for formatting CYBIL 
source code prior to compilation. CYBIL programs formatted by a 
common tool wili be more consistents readabie and maintainable. 


2.2 OVERVIEW 


The formatter is executed as an absolute file. Input and 
output for the formatter are specified with a NOS control card. 
Formatting may be controltied to a timited extent by the use of 
CYBIL pragmats. 
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3.20 


CONVENTIONS 


The formatting conventions are mostiy hard coded into the 


formatter with some conventions being alterable by the use of 
pragmatse 


3e1 


1) 


2) 


3) 


4) 


1) 


2) 


3) 


4) 


INPUT_EZLE CONVENTIONS 

Source must be normal CYBIL input files (currentiy the NOS 
6/12 character set). 

Source must be tegitimate CYBIL sources but is not 
necessarily a compilation unit. Common decks are 
formattablie. 

Source file is assumed positioned and ltocai.. 

Multipie records on source file are formatted. 

Source fine may be any length as formatter reads to 


end-of-tine. 


EORMATIED_ QUIPUT_EILE CONVENTIONS 
Ail lines will be 79 characters or tess untess altered by a 
pragmat. 


The character set output by the formatter will be identical 
to the input fite character set. 


The formatted output file is created as a local file and is 
not rewound before or after. 


The output file will always start with 1 biank line. 
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3-3 EQRMATTING CONVENTIONS 


1) 


2) 


3) 


4) 


5) 


6) 
7) 


8) 


9) 


10) 


11) 


12) 


All keywords witli be converted to upper cases The 
predefined data types tike integers chars ceils booteans 
strings arrays records and set will always be in tower 
case@e 


All programmer created identifiers will be converted to 
lower Tasee 


The case of strings and comments will not be altered. 


Comments starting at the fteft hand margin witt not be 
formatted. 


Lines with the asterisk contro! character in column one are 
not formatted. These tines are assumed to be maintenance 
package control statements which will be satisfied before 
compilation. 


Blank or empty lines are retained. 


Blanks are squeezed to 1 except within strings and 
comments. 


A 3 (semicolon) will cause a new line to be started. If a 
trailing comment follows on that same lines it will remain 
there. 


A space will be added before and/or after certain 
delimiters. Such as: [€ and ]. on attribute lists»s the 
operatorss etc. 


Keywords that start or terminate a structured statement wilt 
start a new line. 


Keywords that form a structured statement will cause 
following statements to have a margin of 2 greater than the 
line that contains the keyword. Keywords that terminate a 
structured statement will decrease this margin by 2. The 
maximum margin will be 40. 


If there Is no blank tine before a VARs TYPEs CONST» or 
PROCEDURE statements or fYabels one will be put there. A 
blank tine wit! separate a tocal variable dectaration from 
the procedure statement Iist. 
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13) 


14) 


15) 


16). 


17) 


18) 


19) 


20) 


21) 


22) 


23) 


24) 


25) 


Each parameter dectaration wil! start anew tine when they 
appear within a PROCEDURE dectaratione A vaiue attribute 
will have a margin six spaces greater than the margin § for 
the PROCEDURE statement. The maximum margin will be 40. 


Identifiers defined in TYPEs VARs and CONST statements will 
each start on a new tine. 


Labels are backed up 2 columns from current margin and are 
alone on a tine, 


If comments need to be separated across finess they will be 
separated at a bilank and subsequent lines will be tftined up 
with the original tine. 


If comments starting at the teft hand margin are too longs 
they are continued at the left hand margin of succeeding 
lines until the comment is completed. 


The teft hand cotumn defauits to 1 untess altered by a 
pragmat. The starting margin is equat to the teft hand 
columne 


NOTE: The first input tine is given a margin of l. 


Pragmats that are processed by the formatter take effect 
after their appearance in the source. 


The formatter checks column one of the input stream and if 
it is non-numeric or the asterisk control! characters the 
information is assumed to be text. 


The formatter stops execution and outputs an appropriate 
message upon detecting the first syntax error. The error 
fiag job contro! register is set to 138 (forced error). 


The THEN clause of the IF statement will normaliy be on the 
same tine as the IFs space permitting. 


The ELSE and IFEND clauses are aligned with the IF 
statement. 


CASE selection specs will have the same margin as their 
associated CASE statement. 


Statements that exceed the fength of a tine will be 
continued on the fotlowing line with a 6 character 
indentation. 
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26) 


27) 


Long strings that do not fit on a singie tine will be split 
and the CAT operator generateds 


A tabel will be Filled in on ending delimiters of labeled 
structured statements» and exits cycles procends modend = and 
funcend statements. 


304 JUGGESTIONS 


The following list of formatting features will not be done by 


the interim formatters but should be strongiy considered for the 
ultimate CYBIL formatter. 


3 


Verifying that if the 4th character of a name is a $ signs 
then the 3rd character must conform to the C180 System 
Interface Standard. 


Recognition and justification of comments within a comment 
blocke 


Develop a method of highlighting changes In flow of execution 
caused by the EXITs CYCLE and RETURN statements. 


Investigate readability of tabbing the 3:8 in ae types 
variables field or parameter specification to a fixed 
positions 

Enhanced interface to SCU. 

Precede a comment block with 2 blank lines and follow it with 


1 blank tine. A comment block is 1 or more tines of 
comments. 
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420 PRAGMATS 


Pragmats appearing in the source are used to control the CYBIL 
formatter and witi be copied to output to provide a graceful 
means of reformatting. 


401 CYBIL. PRAGMATS 


These CYBIL pragmats contro!t the CYBIL compiler as well as the 
formatter and are treated simitarily. 


4elel 2?27RIGHT 2:2 N27? 


For the CYBIL formatters this opragmat is used to specify 
maximum output tine flength with n >= 72 and <= 110. The default 
value is 79. This pragmat indicates to the CYBIL compifer the 
maximum length of a source line. 


Gele2 77LEFT = N2? 


Used to make the CYBIL compiler and formatter ignore any 
foreign data outside the CYBIL syntax. For the formatters this 
pragmat indicates left hand output cotumn and starting margin. 
The default vatue is 1. The foreign data which exists in the 
ignored cotumn positions will be copied to the output file. 


42 EORMATTER_ PRAGMAT 


This pragmat controfts only the CYBIL formatter and is not 
processed by the CYBIL compiler. 
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40 PRAGMATS 
4 22s 1 SYNTAX 
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4e2el SYNTAX 


<formatter pragmat statement> 2:2 2?<formatter pragmat>?? 
<formatter pragmat> 232 EMT (<toggte setting tist>) ; 
<toggte setting list> *32 <toggle setting> [Es<toggie setting>] 
<toggie setting> 232 <toggie identifier> := <condition>d 
Ctoggie identifier> 23= EQRMAT 


<condition> ::2 ON $ QEE 
4.202 TOGGLE IDENTIFIERS 


o FORMAT 


Used to control! formatting of all tines. Default is FORMAT :s= 
ON. 


FORMAT 2:2 GN —- Alf source tines are formatted. 


FORMAT := GFF = No source tines are formatted. 
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500 USE_QE_FORMATTER 


Two methods of accessing the CYBIL formatter are described in 
this section. The formatter provided through the SES is more 
stable and more widely used. The formatter available through the 
project catalog {LP3) is more dynamic and its updated more 
frequently. 


Sel SES PROCEDURE INTEREACE 


An SES procedure interface ts available for accessing the 
CYBIL formatter and is described in SES$*s User Handbook 
(ARH1833). 


deo2 CYAIL_EQRMATTIER_CALL 


The CYBIL formatter can be executed as an absolute file. 


ATTACHsCYBFORM/UN=LP3 
CYBFORMC (<l=fitenamedi€<s0*filename>d)). 


T: Specifies the name of the file to be formatted. If 
I is not specifieds the name of the file is I. 


03 Specifies the name for the formatted file. If 0 is 
not specifieds, the name of the file is 0. 


NOTE: I and O may not use the same file name. 
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PO PB DO OE OE O80 BO PO PO 28 8 FE OE PE TA OE TE PEPE BE TE PO PE PE TD PO TE OF FE PD 88 PO PE OE TE PU PE PO POE 00 PO FO PE DE BO DE 20 PE OE 28 PE TE PD PE DE PE PO PE 90 00 F008 8 PEPE 


6.0 EXAMPLES 


6e1 JQURCE PROGRAM 


1) 72RIGHT 22 11077? 
MODULE Ml; 
PROCEDURE Al; 
VAR 12 INTEGER; 
PROCEND Al; 
MODEND M1; 


Formatted is: 


Z7RIGHT := 1107? 
MODULE m1; 


PROCEDURE al; 


VAR 
i: integer; 
PROCEND als; 
MODEND mi13 


2). 227RIGHT t= 7277 

MODULE M135 

PROCEDURE Al; 

VAR 
Ts INTEGER; 

CONST J=53 

PROCEND Al; 
MODEND M13 


Formatted is: 


PPRIGHT = 727? 
MODULE m1; 


PROCEDURE al; 


VAR 
i: integer; 
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6200 EXAMPLES 
6e1 SGURCE PROGRAM 


CONST 

J*53 
PROCEND a1; 

MODEND mi; 


602 JAMPLE_EXECUTION 


GETsI=SOURCE. 
ATTACHsCYBFORM/UN=LP3. 
CYBFORM. 
REPLACE »sO=COMPILE. 
The file COMPILE will contain the formatted program found = on 
file SOURCE. 
603 MESSAGES 


Messages are written to the OUTPUT file and the dayfile. The 
source line that caused the error message wil! normally be the 
tast one on the output file. 

1) ***UNBALANCED BLOCK STRUCTURE***# 


Begin and end statements for structured statements do not 
match. 


2) #F** IMPROPER PARAMETER LIST#¥*#* 
Something is wrong with a procedure definition statement. 
3) *#*EXTRANEQGUS RIGHT PARENTHESIS #*#* 
Right and teft parens do not match. 
4) ***MISSING RIGHT PARENTHESIS *#* 
Right and left parens do not match. 
5) *€** IMPROPER CASE LABEL *¥**# 
Improper case statement. 


6) ***IMPROPER FORMAT TOGGLE*** 
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7) 


8) 


9) 


10) 


11) 


Something is wrong with a format pragmat that the CYBIL 
formatter processes. 


**#* IMPROPER HEX CONSTANT*#*#* 

Something is wrong with a hex constant. 

¥** IDENTIFIER TOO LONG #¥*# 

Have an identifier greater than 31 characters. 

¥*¥¥* IMPROPER STRING CONSTANT *** 

A quote is missing at EOL causing a syntactic error. 
***PRAGMAT STRING TOO LONG FOR LINE *** 


The string in the titling pragmat does not Fit on the tine 
and cannot be continued. 


#¥* ILLEGAL CONTROL CARD KEYWORD #** 


A keyword other than I or 0 was found on the contro! card. 
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